home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1101 < prev    next >
Encoding:
Text File  |  1994-01-25  |  11.1 KB  |  592 lines
  1. /onlyk4{false}ndf
  2. /ccmyk{dup 5 -1 roll sub 0 max exch}ndf
  3. /cmyk2gray{
  4.  4 -1 roll 0.3 mul 4 -1 roll 0.59 mul 4 -1 roll 0.11 mul
  5.  add add add 1 min neg 1 add
  6. }bdf
  7. /setcmykcolor{1 exch sub ccmyk ccmyk ccmyk pop setrgbcolor}ndf
  8. /maxcolor { 
  9.  max max max  
  10. } ndf
  11. /maxspot {
  12.  pop
  13. } ndf
  14. /setcmykcoloroverprint{4{dup -1 eq{pop 0}if 4 1 roll}repeat setcmykcolor}ndf
  15. /findcmykcustomcolor{5 packedarray}ndf
  16. /setcustomcolor{exch aload pop pop 4{4 index mul 4 1 roll}repeat setcmykcolor pop}ndf
  17. /setseparationgray{setgray}ndf
  18. /setoverprint{pop}ndf 
  19. /currentoverprint false ndf
  20. /cmykbufs2gray{
  21.  0 1 2 index length 1 sub
  22.  { 
  23. 4 index 1 index get 0.3 mul 
  24. 4 index 2 index get 0.59 mul 
  25. 4 index 3 index get 0.11 mul 
  26. 4 index 4 index get 
  27. add add add cvi 255 min
  28. 255 exch sub
  29. 2 index 3 1 roll put
  30.  }for
  31.  4 1 roll pop pop pop
  32. }bdf
  33. /colorimage{
  34.  pop pop
  35.  [
  36. 5 -1 roll/exec cvx 
  37. 6 -1 roll/exec cvx 
  38. 7 -1 roll/exec cvx 
  39. 8 -1 roll/exec cvx
  40. /cmykbufs2gray cvx
  41.  ]cvx 
  42.  image
  43. }
  44. %. version 47.1 on Linotronic of Postscript defines colorimage incorrectly (rgb model only)
  45. version cvr 47.1 le 
  46. statusdict /product get (Lino) anchorsearch{pop pop true}{pop false}ifelse
  47. and{userdict begin bdf end}{ndf}ifelse
  48. fhnumcolors 1 ne {/yt save def} if
  49. /customcolorimage{
  50.  aload pop
  51.  (_vc_Registration) eq 
  52.  {
  53. pop pop pop pop separationimage
  54.  }
  55.  {
  56. /ik xdf /iy xdf /im xdf /ic xdf
  57. ic im iy ik cmyk2gray /xt xdf
  58. currenttransfer
  59. {dup 1.0 exch sub xt mul add}concatprocs
  60. st 
  61. image
  62.  }
  63.  ifelse
  64. }ndf
  65. fhnumcolors 1 ne {yt restore} if
  66. fhnumcolors 3 ne {/yt save def} if
  67. /customcolorimage{
  68.  aload pop 
  69.  (_vc_Registration) eq 
  70.  {
  71. pop pop pop pop separationimage
  72.  }
  73.  {
  74. /ik xdf /iy xdf /im xdf /ic xdf
  75. 1.0 dup ic ik add min sub 
  76. 1.0 dup im ik add min sub 
  77. 1.0 dup iy ik add min sub 
  78. /ic xdf /iy xdf /im xdf
  79. currentcolortransfer
  80. 4 1 roll 
  81. {dup 1.0 exch sub ic mul add}concatprocs 4 1 roll 
  82. {dup 1.0 exch sub iy mul add}concatprocs 4 1 roll 
  83. {dup 1.0 exch sub im mul add}concatprocs 4 1 roll 
  84. setcolortransfer
  85. {/dummy xdf dummy}concatprocs{dummy}{dummy}true 3 colorimage
  86.  }
  87.  ifelse
  88. }ndf
  89. fhnumcolors 3 ne {yt restore} if
  90. fhnumcolors 4 ne {/yt save def} if
  91. /customcolorimage{
  92.  aload pop
  93.  (_vc_Registration) eq 
  94.  {
  95. pop pop pop pop separationimage
  96.  }
  97.  {
  98. /ik xdf /iy xdf /im xdf /ic xdf
  99. currentcolortransfer
  100. {1.0 exch sub ik mul ik sub 1 add}concatprocs 4 1 roll
  101. {1.0 exch sub iy mul iy sub 1 add}concatprocs 4 1 roll
  102. {1.0 exch sub im mul im sub 1 add}concatprocs 4 1 roll
  103. {1.0 exch sub ic mul ic sub 1 add}concatprocs 4 1 roll
  104. setcolortransfer
  105. {/dummy xdf dummy}concatprocs{dummy}{dummy}{dummy}
  106. true 4 colorimage
  107.  }
  108.  ifelse
  109. }ndf
  110. fhnumcolors 4 ne {yt restore} if
  111. /separationimage{image}ndf
  112. /newcmykcustomcolor{6 packedarray}ndf
  113. /inkoverprint false ndf
  114. /setinkoverprint{pop}ndf 
  115. /setspotcolor { 
  116.  spots exch get
  117.  dup 4 get (_vc_Registration) eq
  118.  {pop 1 exch sub setseparationgray}
  119.  {0 5 getinterval exch setcustomcolor}
  120.  ifelse
  121. }ndf
  122. /currentcolortransfer{currenttransfer dup dup dup}ndf
  123. /setcolortransfer{st pop pop pop}ndf
  124. /fas{}ndf
  125. /sas{}ndf
  126. /fhsetspreadsize{pop}ndf
  127. /filler{fill}bdf 
  128. /F{gsave {filler}fp grestore}bdf
  129. /f{closepath F}bdf
  130. /S{gsave {stroke}fp grestore}bdf
  131. /s{closepath S}bdf
  132. /bc4 [0 0 0 0] def 
  133. /_lfp4 {
  134.  /yt xdf       
  135.  /xt xdf       
  136.  /ang xdf      
  137.  storerect
  138.  /taperfcn xdf
  139.  /k2 xdf /y2 xdf /m2 xdf /c2 xdf
  140.  /k1 xdf /y1 xdf /m1 xdf /c1 xdf
  141.  c1 c2 sub abs
  142.  m1 m2 sub abs
  143.  y1 y2 sub abs
  144.  k1 k2 sub abs
  145.  maxcolor      
  146.  calcgraysteps mul abs round  
  147.  height abs adjnumsteps   
  148.  dup 2 lt {pop 2} if    
  149.  1 sub /numsteps1 xdf
  150.  currentflat mark    
  151.  currentflat clipflatness  
  152.  /delta top bottom sub numsteps1 1 add div def 
  153.  /right right left sub def  
  154.  /botsv top delta sub def  
  155.  {
  156. {
  157. W
  158. xt yt translate 
  159. ang rotate
  160. xt neg yt neg translate 
  161. dup setflat 
  162. /bottom botsv def
  163. 0 1 numsteps1 
  164. {
  165. numsteps1 div taperfcn /frac xdf
  166. bc4 0 c2 c1 sub frac mul c1 add put
  167. bc4 1 m2 m1 sub frac mul m1 add put
  168. bc4 2 y2 y1 sub frac mul y1 add put
  169. bc4 3 k2 k1 sub frac mul k1 add put
  170. bc4 vc
  171. 1 index setflat 
  172. { 
  173. mark {newpath left bottom right delta rectfill}stopped
  174. {cleartomark exch 1.3 mul dup setflat exch 2 copy gt{stop}if}
  175. {cleartomark exit}ifelse
  176. }loop
  177. /bottom bottom delta sub def
  178. }for
  179. }
  180. gsave stopped grestore
  181. {exch pop 2 index exch 1.3 mul dup 100 gt{cleartomark setflat stop}if}
  182. {exit}ifelse
  183.  }loop
  184.  cleartomark setflat
  185. }bdf
  186. /bcs [0 0] def 
  187. /_lfs4 {
  188.  /yt xdf       
  189.  /xt xdf       
  190.  /ang xdf      
  191.  storerect
  192.  /taperfcn xdf
  193.  /tint2 xdf      
  194.  /tint1 xdf      
  195.  bcs exch 1 exch put    
  196.  tint1 tint2 sub abs    
  197.  bcs 1 get maxspot    
  198.  calcgraysteps mul abs round  
  199.  height abs adjnumsteps   
  200.  dup 2 lt {pop 2} if    
  201.  1 sub /numsteps1 xdf
  202.  currentflat mark    
  203.  currentflat clipflatness  
  204.  /delta top bottom sub numsteps1 1 add div def 
  205.  /right right left sub def  
  206.  /botsv top delta sub def  
  207.  {
  208. {
  209. W
  210. xt yt translate 
  211. ang rotate
  212. xt neg yt neg translate 
  213. dup setflat 
  214. /bottom botsv def
  215. 0 1 numsteps1 
  216. {
  217. numsteps1 div taperfcn /frac xdf
  218. bcs 0
  219. 1.0 tint2 tint1 sub frac mul tint1 add sub
  220. put bcs vc
  221. 1 index setflat 
  222. { 
  223. mark {newpath left bottom right delta rectfill}stopped
  224. {cleartomark exch 1.3 mul dup setflat exch 2 copy gt{stop}if}
  225. {cleartomark exit}ifelse
  226. }loop
  227. /bottom bottom delta sub def
  228. }for
  229. }
  230. gsave stopped grestore
  231. {exch pop 2 index exch 1.3 mul dup 100 gt{cleartomark setflat stop}if}
  232. {exit}ifelse
  233.  }loop
  234.  cleartomark setflat
  235. }bdf
  236. /_rfs4 {
  237.  /tint2 xdf      
  238.  /tint1 xdf      
  239.  bcs exch 1 exch put    
  240.  /radius xdf      
  241.  /yt xdf       
  242.  /xt xdf       
  243.  tint1 tint2 sub abs    
  244.  bcs 1 get maxspot    
  245.  calcgraysteps mul abs round  
  246.  radius abs adjnumsteps   
  247.  dup 2 lt {pop 2} if    
  248.  1 sub /numsteps1 xdf
  249.  radius numsteps1 div 2 div /halfstep xdf 
  250.  currentflat mark    
  251.  currentflat clipflatness  
  252.  {
  253. {
  254. dup setflat 
  255. W 
  256. 0 1 numsteps1 
  257. {
  258. dup /radindex xdf
  259. numsteps1 div /frac xdf
  260. bcs 0
  261. tint2 tint1 sub frac mul tint1 add
  262. put bcs vc
  263. 1 index setflat 
  264. { 
  265. newpath mark xt yt radius 1 frac sub mul halfstep add 0 360
  266. { arc
  267. radindex numsteps1 ne 
  268. {
  269. xt yt 
  270. radindex 1 add numsteps1 
  271. div 1 exch sub 
  272. radius mul halfstep add
  273. dup xt add yt moveto 
  274. 360 0 arcn 
  275. } if
  276. fill
  277. }stopped
  278. {cleartomark exch 1.3 mul dup setflat exch 2 copy gt{stop}if}
  279. {cleartomark exit}ifelse
  280. }loop
  281. }for
  282. }
  283. gsave stopped grestore
  284. {exch pop 2 index exch 1.3 mul dup 100 gt{cleartomark setflat stop}if}
  285. {exit}ifelse
  286.  }loop
  287.  cleartomark setflat
  288. }bdf
  289. /_rfp4 {
  290.  /k2 xdf /y2 xdf /m2 xdf /c2 xdf
  291.  /k1 xdf /y1 xdf /m1 xdf /c1 xdf
  292.  /radius xdf      
  293.  /yt xdf       
  294.  /xt xdf       
  295.  c1 c2 sub abs
  296.  m1 m2 sub abs
  297.  y1 y2 sub abs
  298.  k1 k2 sub abs
  299.  maxcolor      
  300.  calcgraysteps mul abs round  
  301.  radius abs adjnumsteps   
  302.  dup 2 lt {pop 2} if    
  303.  1 sub /numsteps1 xdf
  304.  radius numsteps1 div 2 div /halfstep xdf 
  305.  currentflat mark    
  306.  currentflat clipflatness  
  307.  {
  308. {
  309. dup setflat 
  310. W 
  311. 0 1 numsteps1 
  312. {
  313. dup /radindex xdf
  314. numsteps1 div /frac xdf
  315. bc4 0 c2 c1 sub frac mul c1 add put
  316. bc4 1 m2 m1 sub frac mul m1 add put
  317. bc4 2 y2 y1 sub frac mul y1 add put
  318. bc4 3 k2 k1 sub frac mul k1 add put
  319. bc4 vc
  320. 1 index setflat 
  321. { 
  322. newpath mark xt yt radius 1 frac sub mul halfstep add 0 360
  323. { arc
  324. radindex numsteps1 ne 
  325. {
  326. xt yt 
  327. radindex 1 add numsteps1 
  328. div 1 exch sub 
  329. radius mul halfstep add
  330. dup xt add yt moveto 
  331. 360 0 arcn 
  332. } if
  333. fill
  334. }stopped
  335. {cleartomark exch 1.3 mul dup setflat exch 2 copy gt{stop}if}
  336. {cleartomark exit}ifelse
  337. }loop
  338. }for
  339. }
  340. gsave stopped grestore
  341. {exch pop 2 index exch 1.3 mul dup 100 gt{cleartomark setflat stop}if}
  342. {exit}ifelse
  343.  }loop
  344.  cleartomark setflat
  345. }bdf
  346. /lfp4{_lfp4}ndf
  347. /lfs4{_lfs4}ndf
  348. /rfs4{_rfs4}ndf
  349. /rfp4{_rfp4}ndf
  350. /ScitexVignette defed /xt xdf
  351. xt not {/yt save def} if
  352.  /anyeq {
  353. cvlit exch
  354. cvlit exch
  355. 1 index type /arraytype eq 
  356. 2 index type /packedarraytype eq 
  357. or
  358. 1 index type /arraytype eq
  359. 2 index type /packedarraytype eq
  360. or
  361. and {
  362. 1 index length
  363. 1 index length eq {
  364. dup length 1 sub -1 0 {
  365. /ind exch def
  366. 1 index ind get
  367. 1 index ind get
  368. anyeq not {/ind -1 def exit} if
  369. } for
  370. pop pop
  371. ind 0
  372. eq
  373. }{
  374. pop pop false
  375. } ifelse
  376. }{
  377. eq 
  378. } ifelse
  379.  } def
  380.  
  381.  /lfp4 where {
  382. pop
  383. /oldlfp /lfp4 load def 
  384. /lfp4 {
  385. /yt xdf 
  386. /xt xdf 
  387. /ang xdf 
  388. storerect 
  389. /taperfcn xdf 
  390. /kc2 xdf 
  391. /yc2 xdf 
  392. /mc2 xdf 
  393. /cc2 xdf 
  394. /kc1 xdf 
  395. /yc1 xdf 
  396. /mc1 xdf 
  397. /cc1 xdf 
  398. save
  399. 20 dict dup begin
  400. /VGVersion 0 def
  401. /typeOfVign 1 def
  402. /xDimension right left sub abs def 
  403. /yDimension top bottom sub abs def 
  404. /numOfColorPoints 2 def
  405. /verticalCoord [ top bottom ] def 
  406. /horizontalCoord [ left left ] def 
  407. /colorArray [
  408. cc1 mc1 yc1 kc1
  409. cc2 mc2 yc2 kc2
  410. ] def
  411. /stepVectorFunction /taperfcn load {logtaper} anyeq {[1]}{[0]}ifelse def
  412. /smoothVG [0] def
  413. end
  414.  
  415. W
  416.  
  417. xt yt translate ang rotate xt neg yt neg translate
  418.  
  419. ScitexVignette 
  420.  
  421. exch 
  422.  
  423. restore
  424.  
  425. not {
  426. /BeginGradation where {pop BeginGradation} if
  427. cc1 mc1 yc1 kc1 cc2 mc2 yc2 kc2 
  428. /taperfcn load left bottom right top ang xt yt oldlfp
  429. /EndGradation where {pop EndGradation} if
  430. } if
  431. }bdf
  432.  } if 
  433.  
  434.  /lfs4 where {
  435. pop
  436. /oldlfs /lfs4 load def 
  437. /lfs4 {
  438. /yt xdf 
  439. /xt xdf 
  440. /ang xdf 
  441. storerect 
  442. /taperfcn xdf 
  443. /tint2 xdf 
  444. /tint1 xdf 
  445. /spotNum xdf 
  446. save
  447. 20 dict dup begin
  448. /VGVersion 0 def
  449. /typeOfVign 1 def
  450. /xDimension right left sub abs def 
  451. /yDimension top bottom sub abs def 
  452. /numOfColorPoints 2 def
  453. /verticalCoord [ top bottom ] def 
  454. /horizontalCoord [ left left ] def 
  455. /colorArray [
  456. tint2 spots spotNum
  457. get aload pop pop pop 4{4 index mul 4 1 roll}repeat
  458. 5 -1 roll pop
  459. tint1 spots spotNum
  460. get aload pop pop pop 4{4 index mul 4 1 roll}repeat
  461. 5 -1 roll pop
  462. ] def
  463. /stepVectorFunction /taperfcn load {logtaper} anyeq {[1]}{[0]}ifelse def
  464. /smoothVG [0] def
  465. end
  466.  
  467. W
  468.  
  469. xt yt translate ang rotate xt neg yt neg translate
  470.  
  471. ScitexVignette 
  472.  
  473. exch 
  474.  
  475. restore
  476.  
  477. not {
  478. /BeginGradation where {pop BeginGradation} if
  479. spotNum tint1 tint2
  480. /taperfcn load left bottom right top ang xt yt oldlfs
  481. /EndGradation where {pop EndGradation} if
  482. } if
  483. }bdf
  484.  } if 
  485.  
  486.  /rfp4 where {
  487. pop
  488. /oldrfp /rfp4 load def 
  489. /rfp4 {
  490. /kc2 xdf 
  491. /yc2 xdf 
  492. /mc2 xdf 
  493. /cc2 xdf 
  494. /kc1 xdf 
  495. /yc1 xdf 
  496. /mc1 xdf 
  497. /cc1 xdf 
  498. /radius xdf 
  499. /yt xdf 
  500. /xt xdf 
  501.  
  502. save
  503. 20 dict dup begin
  504. /VGVersion 0 def
  505. /typeOfVign 3 def 
  506. /xDimension radius 2 mul def 
  507. /yDimension radius 2 mul def 
  508. /numOfColorPoints 2 def
  509. /verticalCoord [ yt yt ] def
  510. /horizontalCoord [ xt dup radius add ] def
  511. /colorArray [
  512. cc2 mc2 yc2 kc2
  513. cc1 mc1 yc1 kc1
  514. ] def
  515. /stepVectorFunction [0] def
  516. /smoothVG [0] def
  517. end
  518.  
  519. W
  520.  
  521. ScitexVignette 
  522.  
  523. exch 
  524.  
  525. restore
  526.  
  527. not {
  528. /BeginGradation where {pop BeginGradation} if
  529. xt yt radius cc1 mc1 yc1 kc1 cc2 mc2 yc2 kc2 oldrfp
  530. /EndGradation where {pop EndGradation} if
  531. } if
  532. } bdf
  533.  } if 
  534.  
  535.  /rfs4 where {
  536. pop
  537. /oldrfs /rfs4 load def 
  538. /rfs4 {
  539. /tint2 xdf 
  540. /tint1 xdf 
  541. /spotNum xdf 
  542. /radius xdf 
  543. /yt xdf 
  544. /xt xdf 
  545. save
  546. 20 dict dup begin
  547. /VGVersion 0 def
  548. /typeOfVign 3 def 
  549. /xDimension radius 2 mul def 
  550. /yDimension radius 2 mul def 
  551. /numOfColorPoints 2 def
  552. /verticalCoord [ yt yt ] def
  553. /horizontalCoord [ xt dup radius add ] def
  554. /colorArray [
  555. tint2 spots spotNum
  556. get aload pop pop pop 4{4 index mul 4 1 roll}repeat
  557. 5 -1 roll pop
  558. tint1 spots spotNum
  559. get aload pop pop pop 4{4 index mul 4 1 roll}repeat
  560. 5 -1 roll pop
  561. ] def
  562. /stepVectorFunction [0] def
  563. /smoothVG [0] def
  564. end
  565.  
  566. W
  567.  
  568. ScitexVignette 
  569.  
  570. exch 
  571.  
  572. restore
  573.  
  574. not {
  575. /BeginGradation where {pop BeginGradation} if
  576. xt yt radius spotNum tint1 tint2 oldrfs
  577. /EndGradation where {pop EndGradation} if
  578. } if
  579. } bdf
  580.  } if 
  581. xt not {yt restore} if
  582. /cvc [0 0 0 1] def 
  583. /vc{
  584.  AltsysDict /cvc 2 index put 
  585.  aload length 4 eq
  586.  {setcmykcolor}
  587.  {setspotcolor}
  588.  ifelse
  589. }bdf 
  590. /origmtx matrix currentmatrix def
  591. /ImMatrix matrix currentmatrix def